home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1999 March / EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso / earcd / devel / vbcc-68k-src / machines / amiga68k / libsrc / math / math_ieee / fixdu.s < prev    next >
Text File  |  1999-01-01  |  463b  |  27 lines
  1.  xref _MathIeeeDoubBasBase
  2.  
  3.  xdef __ieeefixdu
  4. __ieeefixdu:
  5.  movem.l  d2/d3/a6,-(sp)
  6.  move.l  _MathIeeeDoubBasBase,a6
  7.  movem.l 16(sp),d0-d1
  8.  move.l  #$41e00000,d2
  9.  moveq   #0,d3
  10.  jsr     -42(a6)
  11.  tst.l   d0             ; noetig?
  12.  bge.s   ll
  13.  movem.l 16(sp),d0-d1
  14.  jsr     -30(a6)
  15.  movem.l  (sp)+,d2/d3/a6
  16.  rts
  17. ll:
  18.  movem.l 16(sp),d0-d1
  19.  move.l  #$41e00000,d2
  20.  moveq   #0,d3
  21.  jsr     -72(a6)
  22.  jsr     -30(a6)
  23.  eor.l   #-2147483648,d0
  24.  movem.l  (sp)+,d2/d3/a6
  25.  rts
  26.  
  27.